0 REM << CD36-2 >>
5 PRINT"[147]         BASIC RECURSION"
10 S$="TTEESSSTT"
20 N=1 : P(N)=1 : GOSUB 80
30 END
80 P=P(N)
90 IF MID$(S$,P,1)<>MID$(S$,P+1,1) THEN PRINT MID$(S$,P,1);
100 IF P<LEN(S$) THEN N=N+1: P(N)=P+1: GOSUB 80
105 PRINT P(N);
110 N=N-1 : RETURN